home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Show on Desktop.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-10-29  |  2.5 KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\Desktop\Icons\Visible Icons"
  5. "UIPATH 2"="System\Scheduled Tasks\Visibility"
  6. "NAME"="Generic Window Icons"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="2.10"
  9. "TEXT 1"="Recycle Bin"
  10. "TEXT 2"="Printer"
  11. "TEXT 3"="Control Panel"
  12. "TEXT 4"="Scheduled Tasks"
  13. "TEXT 5"="Outlook/Inbox" 
  14. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  15. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  21. "COMMENT 3"=" "
  22. "COMMENT 4"="from lockergnome.com:
  23. "COMMENT 5"="Adam Rao <adam_rao@hotmail.com>: What exactly is a "Recyle Bin"? :)"
  24. "COMMENT 6"="Pierre Szwarc <szwarc@usa.net>: Its an invisible Recycle Bin (you don't 'C' it) <G>"
  25.  
  26.  
  27.  
  28.  
  29. '******************************************************************
  30. '***                MASTER TEMPLATE (1 of X)                   ****
  31. '******************************************************************
  32. sVals=Array("{645FF040-5081-101B-9F08-00AA002F954E}","{2227A280-3AEA-1069-A2DE-08002B30309D}","{21EC2020-3AEA-1069-A2DD-08002B30309D}","{D6277990-4C6A-11CF-8D87-00AA0060F5BF}","{00020D75-0000-0000-C000-000000000046}")
  33. '******************************************************************
  34. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  35. '******************************************************************
  36. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  37.  
  38.  
  39.  
  40. Sub Plugin_Initialize 
  41.  for i=0 to GetUIElementsCount-1
  42.      s=sPath & sVals(i)
  43.  
  44.      if RegPathExists(s) then SetUIElement i+1,true
  45.  next 
  46. End Sub
  47.  
  48. Sub Plugin_CheckData(ElementIndex)
  49. End Sub
  50.  
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  for i=0 to GetUIElementsCount-1
  53.      b=GetUIElement(i+1)
  54.      s=sPath & sVals(i)
  55.  
  56.      if b=true then
  57.         Call RegWriteValue(s & "\@","",1)
  58.      else
  59.  
  60.         if RegPathExists(s) then
  61.            if RegValueExists(s & "\Removal Message") then
  62.               Call RegDeleteValue(s & "\Removal Message")
  63.            end if
  64.            
  65.            'finally delete the path 
  66.            Call RegDeletePath(s)
  67.        end if
  68.      end if
  69.  next 
  70.  
  71.  Call IndicateSettingChange()
  72. End Sub
  73.  
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.  
  78.  
  79.  
  80.